home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / arexx / rxasl / examples / file.rexx next >
OS/2 REXX Batch file  |  1999-05-17  |  324b  |  20 lines
  1. /*
  2.     ReqFile()
  3. */
  4.  
  5. a.DoPatterns    = 1
  6. a.Drawer        = "RAM:"
  7. a.Pattern        = "#?"
  8.  
  9. res = ReqFile("A")
  10. if res==0 then do
  11.     say "LeftEdge:" a.LeftEdge
  12.     say "TopEdge: " a.TopEdge
  13.     say "Width:   " a.Width
  14.     say "Height:  " a.Height
  15.     say "File:    " a.File
  16.     say "Drawer:  " a.Drawer
  17.     say "Pattern: " a.Pattern
  18.     say "NumArgs: " a.NumArgs
  19. end
  20.